home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fileat.zip / EX.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  340b  |  21 lines
  1. {$m 2048,0,2048}
  2.  
  3. program execute;
  4.  
  5. uses dos;
  6.  
  7. var
  8.    path,
  9.    cmdline : string;
  10.    i       : integer;
  11.  
  12. begin
  13.    cmdline := '';
  14.    if paramCount > 0 then
  15.       begin
  16.          path := paramStr(1);
  17.          for i := 2 to paramCount do
  18.             cmdline := paramStr(i) + ' ';
  19.          exec(path,cmdline);
  20.       end;
  21. end.